Imports Microsoft.VisualBasic
Imports System.Data
Imports System.Data.SqlClient
Public Class Bo
    Dim _DAO As New DAO()
    Public Function insertShippingAddress(ByVal _ShippingAddressVO As ShippingAddressVO) As Boolean
        Return _DAO.insertShippingAddress(_ShippingAddressVO)
    End Function
    Public Function insertBillingAddress(ByVal _BillingAddressVO As BillingAddressVO) As Boolean
        Return _DAO.insertBillingAddress(_BillingAddressVO)
    End Function
    Public Function insertCreditCard(ByVal _CreditCardVO As CreditCardVo) As Boolean
        Return _DAO.insertCreditCard(_CreditCardVO)
    End Function
    Public Function insertPurchaseDetail(ByVal _PurchaseDetailVo As PurchaseDetailVo) As Boolean
        Return _DAO.insertPurchaseDetail(_PurchaseDetailVo)
    End Function
    Public Function insertPurchaseMaster(ByVal _PurchaseMasterVo As PurchaseMasterVo) As Boolean
        Return _DAO.insertPurchaseMaster(_PurchaseMasterVo)
    End Function
    Public Function insertBillDetail(ByVal _BillDetailVO As BillDetailVo) As Boolean
        Return _DAO.insertBillDetail(_BillDetailVO)
    End Function
    Public Function insertBillMaster(ByVal _BillMasterVO As BillMasterVo) As Boolean
        Return _DAO.insertBillMaster(_BillMasterVO)
    End Function
    Public Function InsertCity(ByVal _CityVO As CityVo) As Boolean
        Return _DAO.insertCity(_CityVO)
    End Function
    Public Function InsertShippingCharge(ByVal _ShippingChargeVO As ShippingChargeVo) As Boolean
        Return _DAO.insertShippingCharge(_ShippingChargeVO)
    End Function
    Public Function InsertState(ByVal _StateVO As StateVo) As Boolean
        Return _DAO.insertState(_StateVO)
    End Function
    Public Function InsertCategory(ByVal _CategoryVO As CategoryVo) As Boolean
        Return _DAO.insertCategory(_CategoryVO)
    End Function
    Public Function InsertCountry(ByVal _CountryVO As CountryVo) As Boolean
        Return _DAO.insertCountry(_CountryVO)
    End Function
    Public Function InsertSubCategory(ByVal _SubCategoryVO As SubCategoryVo) As Boolean
        Return _DAO.insertSubCategory(_SubCategoryVO)
    End Function
    Public Function InsertScheme(ByVal _SchemeVO As SchemeVo) As Boolean
        Return _DAO.insertScheme(_SchemeVO)
    End Function
    Public Function InsertEmployee(ByVal _EmployeeVO As EmployeeVo) As Boolean
        Return _DAO.insertEmployee(_EmployeeVO)
    End Function
    Public Function InsertProduct(ByVal _ProductVO As ProductVo) As Boolean
        Return _DAO.insertProduct(_ProductVO)
    End Function
    Public Function insertFeedback(ByVal _FeedbackVO As FeedbackVo) As Boolean
        Return _DAO.insertFeedback(_FeedbackVO)
    End Function
    Public Function AddToPurchaseCart(ByVal _PurchaseCartvo As PurchaseCartVo) As Boolean
        Return _DAO.AddToPurchaseCart(_PurchaseCartvo)
    End Function
    Public Function AddToPurchaseDetail(ByVal _PurchaseDetailvo As PurchaseDetailVo) As Boolean
        Return _DAO.AddToPurchaseDetail(_PurchaseDetailvo)
    End Function
    Public Function AddToPurchaseMaster(ByVal _PurchaseMastervo As PurchaseMasterVo) As Boolean
        Return _DAO.AddToPurchaseMaster(_PurchaseMastervo)
    End Function
    Public Function InsertSupplier(ByVal _SupplierVo As SupplierVO) As Boolean
        Return _DAO.InsertSupplier(_SupplierVo)
    End Function





    Public Function CheckCategory(ByVal _CategoryId As String) As DataTable
        Dim dt As New DataTable
        Return dt
    End Function
    Public Function CheckUser(ByVal _UserId As String, ByVal _Password As String) As DataTable
        Dim dt As New DataTable
        dt = _DAO.CheckUser(_UserId, _Password)
        Return dt
    End Function
    Public Function CheckEmployee(ByVal _EmployeeId As String, ByVal _Password As String) As DataTable
        Dim dt As New DataTable
        dt = _DAO.CheckEmployee(_EmployeeId, _Password)
        Return dt
    End Function
    Public Function CheckProductInCart(ByVal _ProductId As String, ByVal _UserId As String) As DataTable
        Dim dt As New DataTable
        dt = _DAO.CheckProductInCart(_ProductId, _UserId)
        Return dt
    End Function
    Public Function InsertUser(ByVal _UserVo As UserVO) As Boolean
        Return _DAO.insertUser(_UserVo)
    End Function
    Public Function AddToCart(ByVal _AddToCartVo As AddToCartVo) As Boolean
        Return _DAO.AddToCart(_AddToCartVo)
    End Function
    Public Function AddToCartMaster(ByVal _AddToCartMasterVo As AddToCartMasterVo) As Boolean
        Return _DAO.AddToCartMaster(_AddToCartMasterVo)
    End Function
    Public Function UpdateCount(ByVal Count As String, ByVal ProductId As String) As Boolean
        Return _DAO.UpdateCount(Count, ProductId)
    End Function
    Public Function UpdateLastLogin(ByVal EmployeeId As String) As Boolean
        Return _DAO.UpdateLastLogin(EmployeeId)
    End Function
    Public Function GetLastLogin(ByVal _EmployeeId As String) As DataTable
        Return _DAO.GetLastLogin(_EmployeeId)
    End Function
    Public Function GetCount(ByVal ProductId As String) As DataTable
        Return _DAO.getCount(ProductId)
    End Function




    Function DeletePurchaseCart() As Boolean
        Return _DAO.DeletePurchaseCart()
    End Function
    Function DeleteSupplier(ByVal _SupplierId As String) As Boolean
        Return _DAO.DeleteSupplier(_SupplierId)
    End Function
    Function DeleteCartDetail() As Boolean
        Return _DAO.DeleteCartDetail()
    End Function
    Function DeleteCartMaster() As Boolean
        Return _DAO.DeleteCartMaster()
    End Function
    Function DeleteCategory(ByVal _CategoryId As String) As Boolean
        Return _DAO.DeleteCategory(_CategoryId)
    End Function
    Function DeleteScheme(ByVal _SchemeId As String) As Boolean
        Return _DAO.DeleteScheme(_SchemeId)
    End Function
    Function DeleteCity(ByVal _CityId As String) As Boolean
        Return _DAO.DeleteCity(_CityId)
    End Function
    Function DeleteState(ByVal _StateId As String) As Boolean
        Return _DAO.DeleteState(_StateId)
    End Function
    Function DeleteCountry(ByVal _CountryId As String) As Boolean
        Return _DAO.DeleteCountry(_CountryId)
    End Function
    Function DeleteShippingCharge(ByVal _ShippingChargeId As String) As Boolean
        Return _DAO.DeleteShippingCharge(_ShippingChargeId)
    End Function
    Function DeleteSubCategory(ByVal _SubCategoryId As String) As Boolean
        Return _DAO.DeleteSubCategory(_SubCategoryId)
    End Function
    Function DeleteProduct(ByVal _ProductId As String) As Boolean
        Return _DAO.DeleteProduct(_ProductId)
    End Function
    Function DeleteEmployee(ByVal _EmployeeId As String) As Boolean
        Return _DAO.DeleteEmployee(_EmployeeId)
    End Function
    Function DeleteFromPurchaseCart(ByVal _PurchaseId As String, ByVal _ProductId As String) As Boolean
        Return _DAO.DeleteFromPurchaseCart(_PurchaseId, _ProductId)
    End Function
    Function DeleteFromPurchaseCart(ByVal _PurchaseId As String) As Boolean
        Return _DAO.DeleteFromPurchaseCart(_PurchaseId)
    End Function
    Function DeleteFromCart(ByVal _PurchaseId As String, ByVal _ProductId As String) As Boolean
        Return _DAO.DeleteFromCart(_PurchaseId, _ProductId)
    End Function



    Public Function getPurchaseId() As DataTable
        Dim dt As New DataTable()
        dt = _DAO.getPurchaseId()
        Return dt
    End Function
    Public Function getFeeds() As DataTable
        Dim dt As New DataTable()
        dt = _DAO.getFeeds()
        Return dt
    End Function
    Public Function getProduct() As DataTable
        Dim dt As New DataTable()
        dt = _DAO.getProduct()
        Return dt
    End Function
    Public Function getPriceByProductId(ByVal _ProductId As String) As DataTable
        Dim dt As New DataTable()
        dt = _DAO.getPriceByProductId(_ProductId)
        Return dt
    End Function
    Public Function getBillingAddressDetail(ByVal _UserId As String) As DataTable
        Dim dt As New DataTable()
        dt = _DAO.getBillingAddressDetail(_UserId)
        Return dt
    End Function
    Public Function getUserDetail(ByVal _UserId As String) As DataTable
        Dim dt As New DataTable()
        dt = _DAO.getUserDetail(_UserId)
        Return dt
    End Function
    Public Function getSecurityQuestion(ByVal _UserId As String) As DataTable
        Dim dt As New DataTable()
        dt = _DAO.getSecurityQuestion(_UserId)
        Return dt
    End Function
    Public Function getBillNo() As DataTable
        Dim dt As New DataTable()
        dt = _DAO.getBillNo()
        Return dt
    End Function
    Public Function getShipNo() As DataTable
        Dim dt As New DataTable()
        dt = _DAO.getShipNo()
        Return dt
    End Function
    Public Function getPurchaseTotal(ByVal _PurchaseId As String) As DataTable
        Dim dt As New DataTable()
        dt = _DAO.getPurchaseTotal(_PurchaseId)
        Return dt
    End Function
    Public Function getTotal(ByVal _UserId As String) As DataTable
        Dim dt As New DataTable()
        dt = _DAO.getTotal(_UserId)
        Return dt
    End Function
    Public Function getSupplierById(ByVal _SupplierId As String) As DataTable
        Dim dt As New DataTable()
        dt = _DAO.getSupplierById(_SupplierId)
        Return dt
    End Function
    Public Function getProductByPrice(ByVal min As String, ByVal max As String) As DataTable
        Dim dt As New DataTable()
        dt = _DAO.getProductByPrice(min, max)
        Return dt
    End Function
    Public Function getProductByDiscount(ByVal min As String, ByVal max As String) As DataTable
        Dim dt As New DataTable()
        dt = _DAO.getProductByDiscount(min, max)
        Return dt
    End Function
    Function brand() As DataTable
        Dim dt As New DataTable
        dt = _DAO.brand()
        Return dt
    End Function
    Public Function getProductByBrand(ByVal min As String, ByVal max As String) As DataTable
        Dim dt As New DataTable()
        dt = _DAO.getProductByBrand(min, max)
        Return dt
    End Function
    Public Function getProductByBrand(ByVal min As String, ByVal max As String, ByVal brand As String) As DataTable
        Dim dt As New DataTable()
        dt = _DAO.getProductByBrand(min, max, brand)
        Return dt
    End Function
    Public Function getSubCatWiseProduct(ByVal min As String, ByVal max As String, ByVal _SubCatId As String) As DataTable
        Dim dt As New DataTable()
        dt = _DAO.getSubCatWiseProduct(min, max, _SubCatId)
        Return dt
    End Function
    Public Function getProductDetails() As DataTable
        Dim dt As New DataTable()
        dt = _DAO.getProductDetails()
        Return dt
    End Function

    Public Function getWomenProducts(ByVal min As String, ByVal max As String) As DataTable
        Dim dt As New DataTable()
        dt = _DAO.getWomenProducts(min, max)
        Return dt
    End Function
    Public Function getMenProducts(ByVal min As String, ByVal max As String) As DataTable
        Dim dt As New DataTable()
        dt = _DAO.getMenProducts(min, max)
        Return dt
    End Function

    Public Function getKidsProducts(ByVal min As String, ByVal max As String) As DataTable
        Dim dt As New DataTable()
        dt = _DAO.getKidsProducts(min, max)
        Return dt
    End Function

    Public Function getCartByProduct(ByVal _ProductId As String, ByVal _UserId As String) As DataTable
        Dim dt As New DataTable()
        dt = _DAO.getCartByProduct(_ProductId, _UserId)
        Return dt
    End Function
    Public Function getcart() As DataTable
        Dim dt As New DataTable()
        dt = _DAO.getcart()
        Return dt
    End Function
    Public Function getTotalQuantity() As DataTable
        Dim dt As New DataTable()
        dt = _DAO.getTotalQuantity()
        Return dt
    End Function

    Public Function getcategory() As DataTable
        Dim dt As New DataTable()
        dt = _DAO.getcategory()
        Return dt
    End Function
    Public Function getScheme() As DataTable
        Dim dt As New DataTable()
        dt = _DAO.getScheme()
        Return dt
    End Function
    Public Function getsubcategory(ByVal _CategoryId As String) As DataTable
        Dim dt As New DataTable()
        dt = _DAO.getsubcategory(_CategoryId)
        Return dt
    End Function
    Public Function getShippingChargeDetails() As DataTable
        Dim dt As New DataTable()
        dt = _DAO.getShippingChargeDetails()
        Return dt
    End Function
    Public Function getSubCategoryDetails() As DataTable
        Dim dt As New DataTable()
        dt = _DAO.getSubCategoryDetails()
        Return dt
    End Function
    Public Function getStateDetails() As DataTable
        Dim dt As New DataTable()
        dt = _DAO.getStateDetails()
        Return dt
    End Function
    Public Function getEmployeeDetails() As DataTable
        Dim dt As New DataTable()
        dt = _DAO.getEmployeeDetails()
        Return dt
    End Function
    Public Function getSupplierDetails() As DataTable
        Dim dt As New DataTable()
        dt = _DAO.getSupplierDetails()
        Return dt
    End Function
    Public Function getSchemeDetails() As DataTable
        Dim dt As New DataTable()
        dt = _DAO.getSchemeDetails()
        Return dt
    End Function
    Public Function getCityDetails() As DataTable
        Dim dt As New DataTable()
        dt = _DAO.getCityDetails()
        Return dt
    End Function
    Public Function getcountry() As DataTable
        Dim dt As New DataTable()
        dt = _DAO.getcountry()
        Return dt
    End Function
    Public Function getstate() As DataTable
        Dim dt As New DataTable()
        dt = _DAO.getstate()
        Return dt
    End Function
    Public Function getQuantity(ByVal _ProductId As String) As DataTable
        Dim dt As New DataTable()
        dt = _DAO.getQuantity(_ProductId)
        Return dt
    End Function
    Public Function CheckProductInPurchaseCart(ByVal _ProductId As String) As DataTable
        Dim dt As New DataTable()
        dt = _DAO.CheckProductInPurchaseCart(_ProductId)
        Return dt
    End Function
    Public Function getstate(ByVal _CountryId As String) As DataTable
        Dim dt As New DataTable()
        dt = _DAO.getstate(_CountryId)
        Return dt
    End Function
    Public Function getCity(ByVal _StateId As String) As DataTable
        Dim dt As New DataTable()
        dt = _DAO.getCity(_StateId)
        Return dt
    End Function
    Public Function getCart(ByVal _UserId As String) As DataTable
        Dim dt As New DataTable()
        dt = _DAO.getcart(_UserId)
        Return dt
    End Function
    Public Function getPurchaseCart(ByVal _PurchaseId As String) As DataTable
        Dim dt As New DataTable()
        dt = _DAO.getPurchaseCart(_PurchaseId)
        Return dt
    End Function
    Public Function getcountryDetails() As DataTable
        Dim dt As New DataTable()
        dt = _DAO.getcountryDetails()
        Return dt
    End Function
    Public Function getCountryByName(ByVal _CountryName As String) As DataTable
        Dim dt As New DataTable()
        dt = _DAO.getCountryByName(_CountryName)
        Return dt
    End Function
    Public Function getBillDate(ByVal _UserId As String) As DataTable
        Dim dt As New DataTable()
        dt = _DAO.getBillDate(_UserId)
        Return dt
    End Function
    Function getDescription(ByVal _SchemeId As String) As SchemeVo
        Dim _SchemeVO As New SchemeVo
        Dim dt As New DataTable()
        Dim dr As DataRow
        dt = _DAO.getDescription(_SchemeId)
        For Each dr In dt.Rows
            _SchemeVO.Description = dr("Discription").ToString()
        Next
        Return _SchemeVO
    End Function
    Public Function getcategoryDetails() As DataTable
        Dim dt As New DataTable()
        dt = _DAO.getCategoryDetails()
        Return dt
    End Function
    Public Function getPassword(ByVal _UserId As String) As DataTable
        Dim dt As New DataTable()
        dt = _DAO.getPassword(_UserId)
        Return dt
    End Function






    Function getCountryById(ByVal _CountryId As String) As CountryVo
        Dim _CountryVO As New CountryVo
        Dim dt As New DataTable()
        Dim dr As DataRow
        dt = _DAO.getCountryById(_CountryId)
        For Each dr In dt.Rows
            _CountryVO.CountryId = dr("CountryId").ToString()
            _CountryVO.CountryName = dr("CountryName").ToString()
        Next
        Return _CountryVO
    End Function
    Function getCategoryById(ByVal _CategoryId As String) As CategoryVo
        Dim _CategoryVO As New CategoryVo
        Dim dt As New DataTable()
        Dim dr As DataRow
        dt = _DAO.getCategoryById(_CategoryId)
        For Each dr In dt.Rows
            _CategoryVO.CategoryId = dr("CategoryId").ToString()
            _CategoryVO.CategoryName = dr("CategoryName").ToString()
        Next
        Return _CategoryVO
    End Function
    Function getProductById(ByVal _ProductId As String) As ProductVo
        Dim _ProductVO As New ProductVo
        Dim dt As New DataTable()
        Dim dr As DataRow
        dt = _DAO.getProductById(_ProductId)
        For Each dr In dt.Rows
            _ProductVO.ProductId = dr("ProductId").ToString()
            _ProductVO.CategoryId = dr("CategoryId").ToString()
            _ProductVO.SubCategoryId = dr("SubCategoryId").ToString
            _ProductVO.Price = dr("Price").ToString
            _ProductVO.Brand = dr("Brand").ToString
            _ProductVO.PhotoPath = dr("PhotoPath").ToString
            _ProductVO.SchemeId = dr("SchemeId").ToString
            _ProductVO.TotalQuantity = dr("TotalQuantity").ToString
            _ProductVO.AvailableQuantity = dr("AvailableQuantity").ToString
        Next
        Return _ProductVO
    End Function
    Function getQuantity(ByVal _ProductId As String, ByVal _UserId As String) As DataTable
        Dim _AddToCartVO As New AddToCartVo
        Dim dt As New DataTable()
        dt = _DAO.getQuantity(_ProductId, _UserId)
        Return dt
    End Function

    Function getEmployeeById(ByVal _EmployeeId As String) As EmployeeVo
        Dim _EmployeeVO As New EmployeeVo
        Dim dt As New DataTable()
        Dim dr As DataRow
        dt = _DAO.getEmployeeById(_EmployeeId)
        For Each dr In dt.Rows
            _EmployeeVO.EmployeeId = dr("EmployeeId").ToString()
            _EmployeeVO.Password = dr("Password").ToString()
            _EmployeeVO.FirstName = dr("FirstName").ToString
            _EmployeeVO.LastName = dr("LastName").ToString
            _EmployeeVO.Address = dr("Address").ToString
            _EmployeeVO.PhoneNumber = dr("PhoneNumber").ToString
            _EmployeeVO.EmailId = dr("EmailId").ToString
            _EmployeeVO.Designation = dr("Designation").ToString
        Next
        Return _EmployeeVO
    End Function
    Function getSchemeById(ByVal _SchemeId As String) As SchemeVo
        Dim _SchemeVO As New SchemeVo
        Dim dt As New DataTable()
        Dim dr As DataRow
        dt = _DAO.getSchemeById(_SchemeId)
        For Each dr In dt.Rows
            _SchemeVO.SchemeId = dr("SchemeId").ToString()
            _SchemeVO.Discount = dr("Discount").ToString
            _SchemeVO.Description = dr("discription").ToString
        Next
        Return _SchemeVO
    End Function
    Function getCityById(ByVal _CityId As String) As CityVo
        Dim _CityVO As New CityVo
        Dim dt As New DataTable()
        Dim dr As DataRow
        dt = _DAO.getCityById(_CityId)
        For Each dr In dt.Rows
            _CityVO.CountryId = dr("CountryId").ToString
            _CityVO.StateId = dr("StateId").ToString
            _CityVO.CityId = dr("CityId").ToString()
            _CityVO.CityName = dr("CityName").ToString
        Next
        Return _CityVO
    End Function
    Function getStateById(ByVal _StateId As String) As StateVo
        Dim _StateVO As New StateVo
        Dim dt As New DataTable()
        Dim dr As DataRow
        dt = _DAO.getStateById(_StateId)
        For Each dr In dt.Rows
            _StateVO.StateId = dr("StateId").ToString()
            _StateVO.StateName = dr("StateName").ToString()
        Next
        Return _StateVO
    End Function
    Function getSubCategoryById(ByVal _SubCategoryId As String) As SubCategoryVo
        Dim _SubCategoryVO As New SubCategoryVo
        Dim dt As New DataTable()
        Dim dr As DataRow
        dt = _DAO.getSubCategoryById(_SubCategoryId)
        For Each dr In dt.Rows
            _SubCategoryVO.CategoryId = dr("CategoryId").ToString()
            _SubCategoryVO.SubCategoryId = dr("SubCategoryId").ToString()
            _SubCategoryVO.SubCategoryName = dr("SubCategoryName").ToString()
        Next
        Return _SubCategoryVO
    End Function
    Function getShippingCharge(ByVal _ShippingChargeId As String) As DataTable
        Dim _ShippingChargeVO As New ShippingChargeVo
        Dim dt As New DataTable()
        dt = _DAO.getShippingChargeById(_ShippingChargeId)
        Return dt
    End Function

    Function getShippingChargeById(ByVal _ShippingChargeId As String) As ShippingChargeVo
        Dim _ShippingChargeVO As New ShippingChargeVo
        Dim dt As New DataTable()
        Dim dr As DataRow
        dt = _DAO.getShippingChargeById(_ShippingChargeId)
        For Each dr In dt.Rows
            _ShippingChargeVO.ShippingChargeId = dr("ShippingChargeId").ToString()
            _ShippingChargeVO.Charge = dr("Charge").ToString()
        Next
        Return _ShippingChargeVO
    End Function




    Public Function UpdatePurchaseCart(ByVal _ProductId As String, ByVal _Quantity As String) As Boolean
        Return _DAO.UpdatePurchaseCart(_ProductId, _Quantity)
    End Function
    Public Function UpdateOnPurchase(ByVal _ProductId As String, ByVal _Quantity As String) As Boolean
        Return _DAO.UpdateOnPurchase(_ProductId, _Quantity)
    End Function
    Function DeductQuantity(ByVal _ProductId As String, ByVal _Quantity As String) As Boolean
        Return _DAO.DeductQuantity(_ProductId, _Quantity)
    End Function
    Function UpdatePassword(ByVal _Password As String, ByVal _UserId As String) As Boolean
        Return _DAO.UpdatePassword(_Password, _UserId)
    End Function
    Function UpdateBillNo(ByVal _TmpBillNoVo As String) As Boolean
        Return _DAO.UpdateBillNo(_TmpBillNoVo)
    End Function
    Function UpdateShipNo(ByVal _TmpShipNoVo As String) As Boolean
        Return _DAO.UpdateShipNo(_TmpShipNoVo)
    End Function
    Function UpdateToCart(ByVal _AddToCartVo As AddToCartVo) As Boolean
        Return _DAO.UpdateToCart(_AddToCartVo)
    End Function
    Function ModifyCountry(ByVal _CountryVO As CountryVo) As Boolean
        Return _DAO.ModifyCountry(_CountryVO)
    End Function
    Function ModifySubCategory(ByVal _SubCategoryVO As SubCategoryVo) As Boolean
        Return _DAO.ModifySubCategory(_SubCategoryVO)
    End Function
    Function ModifyShippingCharge(ByVal _ShippingChargeVO As ShippingChargeVo) As Boolean
        Return _DAO.ModifyShippingCharge(_ShippingChargeVO)
    End Function
    Function ModifyCategory(ByVal _CategoryVO As CategoryVo) As Boolean
        Return _DAO.ModifyCategory(_CategoryVO)
    End Function
    Function ModifyProduct(ByVal _ProductVO As ProductVo) As Boolean
        Return _DAO.ModifyProduct(_ProductVO)
    End Function
    Function ModifyEmployee(ByVal _EmployeeVO As EmployeeVo) As Boolean
        Return _DAO.ModifyEmployee(_EmployeeVO)
    End Function
    Function ModifyScheme(ByVal _SchemeVO As SchemeVo) As Boolean
        Return _DAO.ModifyScheme(_SchemeVO)
    End Function
    Function ModifyCity(ByVal _CityVO As CityVo) As Boolean
        Return _DAO.ModifyCity(_CityVO)
    End Function
    Function ModifyState(ByVal _StateVO As StateVo) As Boolean
        Return _DAO.ModifyState(_StateVO)
    End Function
    Function ModifySupplier(ByVal _SupplierVO As SupplierVO) As Boolean
        Return _DAO.ModifySupplier(_SupplierVO)
    End Function
    Function Topbrand(ByVal min As String, ByVal max As String) As DataTable
        Dim dt As New DataTable
        dt = _DAO.Topbrand(min, max)
        Return dt
    End Function
    Public Function extracthomeproduct(ByVal min As String, ByVal max As String) As DataTable
        Dim dt As New DataTable()
        dt = _DAO.extracthomeproduct(min, max)
        Return dt
    End Function
    Public Function counttotproductBrand(ByVal _Brand As String) As Integer
        Dim CountProduct As Integer
        CountProduct = _DAO.counttotproductBrand(_Brand)
        Return CountProduct
    End Function
    Public Function counttotSubCatProduct(ByVal _SubCatId As String) As Integer
        Dim CountProduct As Integer
        CountProduct = _DAO.counttotSubCatProduct(_SubCatId)
        Return CountProduct
    End Function
    Public Function counttotproduct() As Integer
        Dim CountProduct As Integer
        CountProduct = _DAO.counttotproduct()
        Return CountProduct
    End Function
    Public Function counttotproductCategory(ByVal _Cat As String) As Integer
        Dim CountProduct As Integer
        CountProduct = _DAO.counttotproductCategory(_Cat)
        Return CountProduct
    End Function
    Public Function UpdateQuantityInCart(ByVal _UserId As String, ByVal ProductId As String, ByVal Qty As String) As Boolean
        Return _DAO.UpdateQuantityInCart(_UserId, ProductId, Qty)
    End Function
    Public Function UpdateQuantityInPurchaseCart(ByVal _PurchaseId As String, ByVal _ProductId As String, ByVal Qty As String) As Boolean
        Return _DAO.UpdateQuantityInPurchaseCart(_PurchaseId, _ProductId, Qty)
    End Function
    Public Function getPurchaseCartDetails(ByVal _ProductId As String) As DataTable
        Return _DAO.getPurchaseCartDetails(_ProductId)
    End Function
    Public Function getCartDetails(ByVal _UserId As String) As DataTable
        Dim dt As New DataTable()
        dt = _DAO.getCartDetails(_UserId)
        Return dt
    End Function
End Class
